home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / TREE.bas < prev   
BASIC Source File  |  2012-02-16  |  5KB  |  148 lines
  1. 50  HOME : HGR : HCOLOR= 3: CALL 62450
  2. 98  REM  trunk
  3. 100  HPLOT 219,55 TO 219,100
  4. 102  HPLOT 240,80 TO 240,125
  5. 104  HPLOT 250,50 TO 250,105
  6. 106  HPLOT 260,32 TO 263,140
  7. 108  HPLOT 263,139 TO 269,144 TO 278,155
  8. 110  HPLOT 252,138 TO 258,151
  9. 112  REM  leaves
  10. 116  HPLOT 191,40 TO 200,48 TO 210,55 TO 228,55 TO 235,50 TO 238,46
  11. 118  HPLOT 170,20 TO 160,18 TO 155,18 TO 150,18 TO 146,25 TO 148,40 TO 152,50
  12. 120  HPLOT 153,51 TO 160,53 TO 170,53 TO 180,51 TO 185,47 TO 189,41 TO 193,35
  13. 122  HPLOT 80,0 TO 77,10 TO 75,15 TO 75,20 TO 78,28 TO 81,35 TO 86,39
  14. 124  HPLOT 87,40 TO 96,43 TO 105,45 TO 115,48 TO 122,48 TO 129,46 TO 134,44
  15. 126  HPLOT 135,44 TO 141,41 TO 146,38
  16. 130  HPLOT 220,5 TO 218,10 TO 218,15 TO 220,23 TO 225,26 TO 233,28 TO 255,32
  17. 132  HPLOT 256,32 TO 273,30 TO 279,28
  18. 134  HPLOT 115,0 TO 121,4 TO 128,7 TO 136,7 TO 145,5 TO 165,3 TO 172,0
  19. 150  REM  Newt
  20. 152 X = 196:Y = 82: GOSUB 1008
  21. 154 X = 200: GOSUB 1008
  22. 156 X = 204: GOSUB 1008
  23. 158 X = 194:Y = 85: GOSUB 1004
  24. 160 X = 198: GOSUB 1004
  25. 164 X = 202: GOSUB 1004
  26. 166 X = 206: GOSUB 1004
  27. 168 X = 203:Y = 88: GOSUB 1008
  28. 170 X = 207: GOSUB 1008
  29. 171 X = 208:Y = 84: GOSUB 1008
  30. 172 X = 205:Y = 91: GOSUB 1004
  31. 176 X = 209: GOSUB 1004
  32. 177  REM  i, brow, noz, mouth, smile
  33. 178  HPLOT 197,87 TO 199,87: HPLOT 200,88
  34. 180  HPLOT 198,89
  35. 182  HPLOT 195,88 TO 193,92 TO 196,93 TO 196,95 TO 195,99
  36. 184  HPLOT 197,95 TO 199,95
  37. 186  HPLOT 200,94
  38. 188  HPLOT 196,99 TO 201,99
  39. 190 X = 206:Y = 94: GOSUB 1008
  40. 192 X = 210: GOSUB 1008
  41. 194 X = 208:Y = 97: GOSUB 1004
  42. 196 X = 212: GOSUB 1004
  43. 198 X = 210:Y = 100: GOSUB 1008
  44. 200 X = 214: GOSUB 1008
  45. 202 X = 212:Y = 103: GOSUB 1004
  46. 204 X = 216: GOSUB 1004
  47. 206 X = 206:Y = 100: GOSUB 1024
  48. 208 X = 204:Y = 103: GOSUB 1018
  49. 210 X = 208: GOSUB 1008
  50. 212 X = 210:Y = 87: GOSUB 1002
  51. 213 X = 212:Y = 90: GOSUB 1008
  52. 214 X = 214:Y = 96: GOSUB 1008
  53. 216 X = 214:Y = 93: GOSUB 1002
  54. 218 X = 216:Y = 98: GOSUB 1002
  55. 220  REM   Newt bod  
  56. 222  HPLOT 215,107 TO 215,111
  57. 223  REM  arm
  58. 224  HPLOT 214,113 TO 209,133 TO 206,134 TO 191,133
  59. 225  REM  chest
  60. 226  HPLOT 200,105 TO 195,110 TO 195,120 TO 197,127
  61. 227  REM  arm
  62. 228  HPLOT 208,114 TO 206,124
  63. 230  HPLOT 201,112 TO 202,126
  64. 232  REM    neck
  65. 234  HPLOT 201,100 TO 203,104
  66. 236  REM  lower arm
  67. 238  HPLOT 201,126 TO 191,128
  68. 270  REM   back jack
  69. 272  HPLOT 216,100 TO 219,107 TO 219,111 TO 218,116 TO 218,121 TO 217,127 TO 217,133 TO 221,150
  70. 274  HPLOT 221,150 TO 210,153 TO 205,153 TO 197,151 TO 193,150 TO 191,150 TO 186,145
  71. 276  REM  jack
  72. 278  HPLOT 186,145 TO 191,141 TO 195,135
  73. 300  REM  legs
  74. 302  HPLOT 189,150 TO 169,135 TO 167,135 TO 163,142 TO 152,150
  75. 304  HPLOT 182,128 TO 172,124 TO 166,124 TO 146,144 TO 152,150
  76. 305  REM  sleeves
  77. 306  HPLOT 191,134 TO 191,127
  78. 308  HPLOT 193,127 TO 193,130
  79. 310  HPLOT 194,127 TO 194,130
  80. 312  REM  hand
  81. 314  HPLOT 190,128 TO 186,126 TO 183,126 TO 182,128 TO 182,132 TO 185,134 TO 187,134 TO 190,132
  82. 316  HPLOT 183,128 TO 184,128
  83. 318  HPLOT 183,130 TO 184,130
  84. 320  REM  grass
  85. 322  HPLOT 30,159 TO 155,154 TO 196,151
  86. 324  HPLOT 221,150 TO 245,153 TO 255,156 TO 279,159
  87. 326  REM  shoe
  88. 328  HPLOT 151,149 TO 151,151 TO 152,155
  89. 330  HPLOT 147,145 TO 141,147 TO 133,149 TO 129,152 TO 129,153
  90. 332  HPLOT 130,154
  91. 334  REM  other arm
  92. 336  HPLOT 194,118 TO 187,127
  93. 340  REM  back leg
  94. 342  HPLOT 171,139 TO 169,142 TO 167,145 TO 162,149 TO 158,147
  95. 344  HPLOT 161,150 TO 162,154
  96. 350  REM  bot  jack
  97. 352  HPLOT 210,138 TO 212,146
  98. 354  HPLOT 203,136 TO 196,145
  99. 400  REM  ap
  100. 402 X = 95:Y = 4: GOSUB 1029
  101. 404 X = 255:Y = 9: GOSUB 1029
  102. 406 X = 195:Y = 16: GOSUB 1029
  103. 407  HCOLOR= 0:Y = 16: GOSUB 1029
  104. 409  FOR Y1 = 16 TO 65
  105. 410  HCOLOR= 3:Y = Y1: GOSUB 1029
  106. 412  HCOLOR= 0:Y = Y1: GOSUB 1029
  107. 413 Y1 = Y1 +4: NEXT 
  108. 416  HCOLOR= 3
  109. 418  HPLOT 191,40 TO 200,48 TO 210,55 TO 228,55 TO 235,50 TO 238,46
  110. 420  HCOLOR= 0: HPLOT 200,94: HCOLOR= 3: HPLOT 200,96
  111. 450  VTAB (21): PRINT "          Press any key!": GET LY$: CALL 62450
  112. 454  PRINT  CHR$(4);"RUN INE"
  113. 1000  END 
  114. 1002  REM  curl up
  115. 1004  HPLOT X,Y -1 TO X,Y -2: HPLOT X +1,Y: HPLOT X +2,Y -1
  116. 1006  RETURN 
  117. 1008  REM  curl down
  118. 1010  HPLOT X,Y -1: HPLOT X +1,Y -2: HPLOT X +2,Y TO X +2,Y -1
  119. 1012  RETURN 
  120. 1016  REM  CURL up 
  121. 1018  HPLOT X,Y -1: HPLOT X +1,Y: HPLOT X +2,Y -1 TO X +2,Y -2
  122. 1020  RETURN 
  123. 1022  REM   curl down  
  124. 1024  HPLOT X,Y TO X,Y -1: HPLOT X +1,Y -2: HPLOT X +2,Y -1
  125. 1026  RETURN 
  126. 1029  REM   apple  
  127. 1030  HPLOT X +4,Y TO X +5,Y
  128. 1032  HPLOT X +4,Y +1 TO X +6,Y +1
  129. 1034  HPLOT X +11,Y +1 TO X +12,Y +1
  130. 1036  HPLOT X +4,Y +2 TO X +7,Y +2
  131. 1038  HPLOT X +11,Y +2 TO X +12,Y +2
  132. 1040  HPLOT X +5,Y +3 TO X +8,Y +3
  133. 1042  HPLOT X +10,Y +3 TO X +11,Y +3
  134. 1044  HPLOT X +7,Y +4 TO X +9,Y +4
  135. 1046  HPLOT X +3,Y +5 TO X +14,Y +5
  136. 1048  HPLOT X +2,Y +6 TO X +15,Y +6
  137. 1050  HPLOT X +2,Y +7 TO X +15,Y +7
  138. 1052  HPLOT X +2,Y +8 TO X +15,Y +8
  139. 1054  HPLOT X +2,Y +9 TO X +15,Y +9
  140. 1056  HPLOT X +3,Y +10 TO X +14,Y +10
  141. 1058  HPLOT X +3,Y +11 TO X +14,Y +11
  142. 1060  HPLOT X +3,Y +12 TO X +14,Y +12
  143. 1062  HPLOT X +4,Y +13 TO X +13,Y +13
  144. 1064  HPLOT X +4,Y +14 TO X +13,Y +14
  145. 1066  HPLOT X +5,Y +15 TO X +12,Y +15
  146. 1068  HPLOT X +6,Y +16 TO X +7,Y +16
  147. 1069  HPLOT X +10,Y +16 TO X +11,Y +16
  148. 1070  RETURN